﻿Class MainWindow 
  Private indice As Integer = 1
  Private arrayImmagini(2) As String
  Public Sub New()
    ' Chiamata richiesta dalla finestra di progettazione.
    InitializeComponent()
    ' Aggiungere le eventuali istruzioni di inizializzazione
    ' dopo la chiamata a InitializeComponent().
    arrayImmagini(0) = ".\Koala.jpg"
    arrayImmagini(1) = ".\Lighthouse.jpg"
    arrayImmagini(2) = ".\Penguins.jpg"
    Call CaricaImmagine()
  End Sub

  Private Sub Image1_MouseDown(
      ByVal sender As Object,
      ByVal e As  _
        System.Windows.Input.MouseButtonEventArgs) _
      Handles Image1.MouseDown
    Call CaricaImmagine()
  End Sub
  Private Sub CaricaImmagine()
    Dim i As Image = New Image()
    Dim src As BitmapImage = New BitmapImage()
    src.BeginInit()
    src.UriSource = New Uri(
      arrayImmagini(indice), UriKind.Relative)
    src.CacheOption =
      BitmapCacheOption.OnLoad
    src.EndInit()
    Me.Image1.Source = src
    Me.Image1.Stretch =
      Stretch.Uniform
    ' scorrimento dell'immagine
    indice += 1
    If indice = 3 Then
      indice = 0
    End If
  End Sub
End Class
